arrcpy(r, src, dst, length) 
var i = 0;
start: if not length>i goto done;
dst[i]=src[i]*r;
i = i+1;
goto start;
done: return r+i;
end;
